home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / tbbs / prgsourc.zip / HOMES.ZIP / LTAG.PRG < prev    next >
Text File  |  1995-12-26  |  451b  |  23 lines
  1. PROCEDURE ltag
  2. fnd = aScan(tarray,pic1) 
  3. IF fnd = 0   
  4.    fnd = aScan(tarray,"EMPTY",51,1) 
  5.    IF fnd = 51
  6.       SET COLOR TO W+/N
  7.       @ 19,5 SAY "Maximum number of tagged listings is 50."
  8.       key=InKey(4)
  9.       @ 19,5 CLEAR TO 19,50
  10.       RETURN
  11.    ENDIF
  12.    dummy=aIns(tarray,1)
  13.    tarray[1]=pic1
  14.    SET COLOR TO RB+/N
  15.    @ crow,1 SAY "*"
  16. ELSE
  17.    dummy=aDel(tarray,fnd)
  18.    SET COLOR TO N/N
  19.    @ crow,1 SAY " "
  20. ENDIF
  21. RETURN
  22.  
  23.